home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / i13b1.exe / IXDCC.INI < prev    next >
Encoding:
INI File  |  1997-02-10  |  20.4 KB  |  435 lines
  1. [Aliases]
  2. n0=/f1 {
  3. n1=  set %helphile $$?="Inferno or mIRC help?"
  4. n2=  if %helphile == inferno { run leetpad [ $mircdir $+ ifaq.txt ] }
  5. n3=  else run winhelp [ $mircdir $+ mirc.hlp ]
  6. n4=}
  7. n5=/f2 {
  8. n6=  //say /ctcp $me xdcc list or xdcc send #X
  9. n7=}
  10. n8=/f3 //titlebar -[( NetHak (F4): $+ %sop $+ \Away: $+ %away $+ \Sends: $+ $send(0) $+ \Gets: $+ $get(0) $+ \Chans: $+ $chan(0) $+ \Chats: $+ $chat(0) )]-
  11. n9=/f4 /set %sop $$?="Try to deop on serverops? [on|off]" | /f3
  12. n10=/f5 /say 4 $+ $$?="Who to MSG to." $+ : $$?="What U wanna say?"
  13. n11=/f6 {
  14. n12=  set %prog $$?="Which prog?  Email, WWW, or FTP?"
  15. n13=  if %prog == email && %email != $null { run %email }
  16. n14=  if %prog == www && %www != $null { run %www }
  17. n15=  if %prog == ftp && %ftp != $null { run %ftp }
  18. n16=}
  19. n17=/f7 /dcc chat %chat
  20. n18=/f8 /echo 4 {I} You've been online for $duration(%online)
  21. n19=/f10 /load -a $mircdir $+ ialiases.ini
  22. n20=/f12 {
  23. n21=  echo 2,13 $+ {I} It is now $time on $adate $+ .
  24. n22=  echo 12,11 $+ {I} %f12
  25. n23=  echo 9,1 $+ {I} %text
  26. n24=}
  27. n25=/w {
  28. n26=  if ($1 == $null) echo 5 -a {I} Usage: /w <NICK>   
  29. n27=  if $2 = -s { set %whois /msg # }
  30. n28=  else { set %whois echo 4 $active }
  31. n29=  whois $$1
  32. n30=}
  33. n31=/wme /w $me
  34. n32=/dnme /dns $me
  35. n33=/leet /run leetpad $$dir="Any phile in particular?" [ $mircdir $+ extras\ ]
  36. n34=/leetnew /run leetpad
  37. n35=/pa {
  38. n36=  echo 4 Enter announcement: $$?="What's Da Announcement"
  39. n37=  say -[( $+ # Public Announcement )]-
  40. n38=  say -[( $+ $$! $+ )]-
  41. n39=  say ááááááááááá      -[( ª╤F╦R╤╒ )]-
  42. n40=}
  43. n41=/nin64 /j Nintendo64 | /j Nintendo
  44. n42=/noticetop /topic # [ $+ $$?="What here-╢╫-'▓╖╗╕/⌐\╕½╖▓'-╫╢" $+ ] ╢╫-'▓╖╗╕/⌐\╕½╖▓'-╫╢ # ╢╫-'▓╖╗╕/⌐\╕½╖▓'-╫╢ [ $+ $$?="╢╫-'▓╖╗╕/⌐\╕½╖▓'-╫╢-What here" $+ ]
  45. n43=/tq /quit I wasted $duration(online) of my life here you know!
  46. n44=/rev {
  47. n45=  if ($1 == $null) echo 5 -a {I} Usage: /rev <TEXT TO REVERSE>
  48. n46=  set %rev *1 | set %rev $replace(%rev,$chr(32),^-) | set %lentest $len(%rev)
  49. n47=  :loop
  50. n48=  set %say %say $right(1,%rev) | dec %lentest | set %rev $left(%lentest,%rev)  
  51. n49=  if (%lentest != 0) { goto loop }
  52. n50=  set %say $replace(%say,^,$chr(32)) | set %say $remove(%say,$chr(32)) | set %say $replace(%say,-,$chr(32)) | say  [ [ %say ] ] | unset %say
  53. n51=}
  54. n52=/massdeop {
  55. n53=  if ($1 == $null) echo 5 -a {I} Usage: /massdeop <NICK1-12>
  56. n54=  mode # -o $$1 $2 $3 $4
  57. n55=  mode # -o $$5 $6 $7 $8
  58. n56=  mode # -o $$9 $10 $11 $12
  59. n57=}
  60. n58=/topic7 /topic # \_╕,-ñ┤»`ñ-,╕_╕,-ñ┤»`ñ-,╕_/ # \_╕,-ñ┤»`ñ-,╕_╕,-ñ┤»`ñ-,╕_/
  61. n59=/topic6 /topic # »░╣»░╣-»░╣-.»░╣-.╕/ # \╕.-╣░».-╣░»-╣░»╣░»
  62. n60=/topic5 /topic # ╢╫-'▓╖╗╕/⌐\╕½╖▓'-╫╢ # ╢╫-'▓╖╗╕/⌐\╕½╖▓'-╫╢
  63. n61=/topic4 /topic #  ░║╗º½║░║╗º½║░║╗º½║░ # ░║╗º½║░║╗º½║░║╗º½║░
  64. n62=/topic3 /topic # ^'╖.╕.╖'^'╖.╕.╖'^-] # [-^'╖.╕.╖'^'╖.╕.╖'^
  65. n63=/topic2 /topic # »`╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.-> ⌐ # ⌐ <-.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤»
  66. n64=/topic1 /topic # ,-░^\-░^\░^\^\ # /^/^░/^░-/^░-,
  67. n65=/shifts /topic # ---===]}> The $$?="Which shift" Shift! <{[===---
  68. n66=/a /guser $$?="What Level" $$?="What Person" 3
  69. n67=/takeover /echo 4 {I} Takeover of # is now initiated.  All PPL Who Try to Join Will Be Kicked. | /mode # +iksm dbb546-{\fn | /enable #takeover
  70. n68=/take-OVER /echo 4 {I} Takeover of # is now disabled. | /mode # +tn -kims dbb546-{\fn | /disable #takeover
  71. n69=/oreset /timer1 off | /timer2 off | /timer3 off | /set %minutes 0 | /set %hours 0
  72. n70=/saykick /auser 45 $$1 3
  73. n71=/in /ame is using ª╤F╦R╤╒ by R-66Y and [eXo] -[( there is no life, when the inferno arrives )]-
  74. n72=/i-n /me is using ª╤F╦R╤╒ by R-66Y and [eXo] -[( there is no life, when the inferno arrives )]-
  75. n73=/inf /amsg ª╤F╦R╤╒ v1.3b1 8,1GOLD EDITION by R-66Y and [eXo] | /amsg -[( there is no life, when the inferno arrives )]-
  76. n74=/i-nf /say ª╤F╦R╤╒ v1.3b1 8,1GOLD EDITION by R-66Y and [eXo] | /say -[( there is no life, when the inferno arrives )]-
  77. n75=/look /timer 0 350 /ame is looking for $$?="UR looking for <BLAH>." $+ .  Please MSG $me $+ .
  78. n76=/p /part #$1
  79. n77=/j /set %synch on | /set %synch2 $ticks | /join #$1
  80. n78=/i /invite $$1 #$2
  81. n79=/nt /notify $$1
  82. n80=/v /ctcp $$1 VERSION
  83. n81=/pg /ctcp $$1 PAGE
  84. n82=/pi /ctcp $$1 PING
  85. n83=/uc /ctcp $$1 UWHO
  86. n84=/n /names #$1
  87. n85=/h /join #$1 | /part #$1
  88. n86=/rh /part #$1 | /join #$1
  89. n87=/tkpkoff {
  90. n88=  if ($1 == $null) { echo 4 -a {I} Usage: /tkpkoff <PACK NUMBER> | halt }
  91. n89=  else set %packoff $$1
  92. n90=  %packleached = { %packleached - [ % $+ [ pack $+ [ $$1 $+ [ size ] ] ] ] }
  93. n91=  dec [ % $+ [ pack $+ [ $$1 $+ [ gets ] ] ] ]  1 
  94. n92=}
  95. n93=/xdcc1 {
  96. n94=  if $1 == $null { echo  $+ $r(1,15) $+ , $+ $r(1,15) $+ {I} Usage: /xdcc [stop|setup|offer] | halt }
  97. n95=  else goto xdcc $+ $1
  98. n96=  :xdccstop
  99. n97=  timer45 off  
  100. n98=  disable #1pack
  101. n99=  unset %pack*
  102. n100=  goto xdccend
  103. n101=  :xdccsetup
  104. n102=  enable #1pack
  105. n103=  set %packleached 0
  106. n104=  set %packs 1
  107. n105=  set %pack1 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  108. n106=  %pack1size = $lof(%pack1)
  109. n107=  %pack1size = %pack1size / 1000
  110. n108=  set %packsize %pack1size
  111. n109=  set %pack1gets 0
  112. n110=  %pack1desc = $nopath(%pack1)
  113. n111=  set %pack1desc1 $$?="What does the pack DO?"
  114. n112=  set %pack1extra $$?="Any more info?"
  115. n113=  set %packslot $$?="How many slots?"
  116. n114=  set %packleached 0
  117. n115=  set %packslots { %packslot - $send(0) }
  118. n116=  :xdccoffer
  119. n117=  set %packslots { %packslot - $send(0) }
  120. n118=  amsg  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  121. n119=  amsg Total offered-[ $+ %packsize $+ k $+ ]  
  122. n120=  amsg  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  123. n121=  if %pack1extra != no { amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | amsg áá^- %pack1extra }
  124. n122=  else {
  125. n123=    amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  126. n124=  }
  127. n125=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | amsg Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     amsg XDCC LIST generated by %inferno by R-66Y and [eXo] }
  128. n126=  else {
  129. n127=    amsg Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  130. n128=    amsg XDCC LIST generated by %inferno by R-66Y and [eXo]
  131. n129=    timer45 0 400 /xdcc5 offer
  132. n130=    halt
  133. n131=  }
  134. n132=  :xdccend
  135. n133=  echo 4 $active Thanx fer using %inferno
  136. n134=}
  137. n135=/xdcc2 {
  138. n136=  if $1 == $null { echo  $+ $r(1,15) $+ , $+ $r(1,15) $+ {I} Usage: /xdcc2 [stop|setup|offer] | halt }
  139. n137=  else goto xdcc2 $+ $$1 
  140. n138=  :xdcc2stop
  141. n139=  timer45 off
  142. n140=  disable #2pack
  143. n141=  unset %pack*
  144. n142=  goto xdcc2end
  145. n143=  :xdcc2setup
  146. n144=  enable #2pack
  147. n145=  inc %packs 1
  148. n146=  set %pack1 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  149. n147=  %pack1size = $lof(%pack1)
  150. n148=  %pack1size = %pack1size / 1000
  151. n149=  set %pack1gets 0
  152. n150=  %pack1desc = $nopath(%pack1)
  153. n151=  set %pack1desc1 $$?="What does the pack DO?"
  154. n152=  set %pack1extra $$?="Any more info?"
  155. n153=  inc %packs 1
  156. n154=  set %pack2 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  157. n155=  %pack2size = $lof(%pack2)
  158. n156=  %pack2size = %pack2size / 1000
  159. n157=  set %packsize { %pack1size + %pack2size }
  160. n158=  set %pack2gets 0
  161. n159=  %pack2desc = $nopath(%pack2)
  162. n160=  set %pack2desc1 $$?="What does the pack DO?"
  163. n161=  set %pack2extra $$?="Any more info?"
  164. n162=  set %packslot $$?="How many slots?"
  165. n163=  set %packleached 0
  166. n164=  set %packslots { %packslot - $send(0) }
  167. n165=  :xdcc2offer
  168. n166=  set %packslots { %packslot - $send(0) }
  169. n167=  amsg  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  170. n168=  amsg Total offered-[ $+ %packsize $+ k $+ ]  
  171. n169=  amsg  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  172. n170=  if %pack1extra != no { amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | amsg áá^- %pack1extra }
  173. n171=  else {
  174. n172=    amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  175. n173=  }
  176. n174=  if %pack2extra != no { amsg #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ] | amsg áá^- %pack2extra }
  177. n175=  else {
  178. n176=    amsg #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ]
  179. n177=  }
  180. n178=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | amsg Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     amsg XDCC LIST generated by %inferno by R-66Y and [eXo] }
  181. n179=  else {
  182. n180=    amsg Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  183. n181=    amsg XDCC LIST generated by %inferno by R-66Y and [eXo]
  184. n182=    timer45 0 400 /xdcc5 offer
  185. n183=    halt
  186. n184=  }
  187. n185=  :xdcc2end
  188. n186=  echo 4 $active Thanx fer using %inferno
  189. n187=}
  190. n188=/xdcc3 {
  191. n189=  if $1 == $null { echo  $+ $r(1,15) $+ , $+ $r(1,15) $+ {I} Usage: /xdcc3 [stop|setup|offer] | halt }
  192. n190=  else goto xdcc3 $+ $$1 
  193. n191=  :xdcc3stop
  194. n192=  timer45 off
  195. n193=  disable #3pack
  196. n194=  unset %pack*
  197. n195=  goto xdcc3end
  198. n196=  :xdcc3setup
  199. n197=  enable #3pack
  200. n198=  inc %packs 1
  201. n199=  set %pack1 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  202. n200=  %pack1size = $lof(%pack1)
  203. n201=  %pack1size = %pack1size / 1000
  204. n202=  set %pack1gets 0
  205. n203=  %pack1desc = $nopath(%pack1)
  206. n204=  set %pack1desc1 $$?="What does the pack DO?"
  207. n205=  set %pack1extra $$?="Any more info?"
  208. n206=  inc %packs 1
  209. n207=  set %pack2 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  210. n208=  %pack2size = $lof(%pack2)
  211. n209=  %pack2size = %pack2size / 1000
  212. n210=  set %pack2gets 0
  213. n211=  %pack2desc = $nopath(%pack2)
  214. n212=  set %pack2desc1 $$?="What does the pack DO?"
  215. n213=  set %pack2extra $$?="Any more info?"
  216. n214=  inc %packs 1
  217. n215=  set %pack3 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  218. n216=  %pack3size = $lof(%pack3)
  219. n217=  %pack3size = %pack3size / 1000
  220. n218=  set %packsize { %pack1size + %pack2size }
  221. n219=  set %packsize1 { %packsize + %pack3size }
  222. n220=  set %pack3gets 0
  223. n221=  %pack3desc = $nopath(%pack3)
  224. n222=  set %pack3desc1 $$?="What does the pack DO?"
  225. n223=  set %pack3extra $$?="Any more info?"
  226. n224=  set %packslot $$?="How many slots?"
  227. n225=  set %packleached 0
  228. n226=  set %packslots { %packslot - $send(0) }
  229. n227=  :xdcc3offer
  230. n228=  set %packslots { %packslot - $send(0) }
  231. n229=  amsg  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  232. n230=  amsg Total offered-[ $+ %packsize1 $+ k $+ ]  
  233. n231=  amsg  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  234. n232=  if %pack1extra != no { amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | amsg áá^- %pack1extra }
  235. n233=  else {
  236. n234=    amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  237. n235=  }
  238. n236=  if %pack2extra != no { amsg #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ] | amsg áá^- %pack2extra }
  239. n237=  else {
  240. n238=    amsg #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ]
  241. n239=  }
  242. n240=  if %pack3extra != no { amsg #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ] | amsg áá^- %pack3extra }
  243. n241=  else {
  244. n242=    amsg #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ]
  245. n243=  }
  246. n244=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | amsg Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     amsg XDCC LIST generated by %inferno by R-66Y and [eXo] }
  247. n245=  else {
  248. n246=    amsg Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  249. n247=    amsg XDCC LIST generated by %inferno by R-66Y and [eXo]
  250. n248=    timer45 0 400 /xdcc5 offer
  251. n249=    halt
  252. n250=  }
  253. n251=  :xdcc3end
  254. n252=  echo 4 $active Thanx fer using %inferno
  255. n253=}
  256. n254=/xdcc4 {
  257. n255=  if $1 == $null { echo  $+ $r(1,15) $+ , $+ $r(1,15) $+ {I} Usage: /xdcc4 [stop|setup|offer] | halt }
  258. n256=  else goto xdcc4 $+ $$1 
  259. n257=  :xdcc4stop
  260. n258=  timer45 off
  261. n259=  disable #4pack
  262. n260=  unset %pack*
  263. n261=  goto xdcc4end
  264. n262=  :xdcc4setup
  265. n263=  enable #4pack
  266. n264=  inc %packs 1
  267. n265=  set %pack1 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  268. n266=  %pack1size = $lof(%pack1)
  269. n267=  %pack1size = %pack1size / 1000
  270. n268=  set %pack1gets 0
  271. n269=  %pack1desc = $nopath(%pack1)
  272. n270=  set %pack1desc1 $$?="What does the pack DO?"
  273. n271=  set %pack1extra $$?="Any more info?"
  274. n272=  inc %packs 1
  275. n273=  set %pack2 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  276. n274=  %pack2size = $lof(%pack2)
  277. n275=  %pack2size = %pack2size / 1000
  278. n276=  set %pack2gets 0
  279. n277=  %pack2desc = $nopath(%pack2)
  280. n278=  set %pack2desc1 $$?="What does the pack DO?"
  281. n279=  set %pack2extra $$?="Any more info?"
  282. n280=  inc %packs 1
  283. n281=  set %pack3 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  284. n282=  %pack3size = $lof(%pack3)
  285. n283=  %pack3size = %pack3size / 1000
  286. n284=  set %pack3gets 0
  287. n285=  %pack3desc = $nopath(%pack3)
  288. n286=  set %pack3desc1 $$?="What does the pack DO?"
  289. n287=  set %pack3extra $$?="Any more info?"
  290. n288=  inc %packs 1
  291. n289=  set %pack4 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  292. n290=  %pack4size = $lof(%pack4)
  293. n291=  %pack4size = %pack4size / 1000
  294. n292=  set %pack4gets 0
  295. n293=  %pack4desc = $nopath(%pack4)
  296. n294=  set %pack4desc1 $$?="What does the pack DO?"
  297. n295=  set %pack4extra $$?="Any more info?"
  298. n296=  set %packsize { %pack1size + %pack2size }  
  299. n297=  set %packsize1 { %packsize + %pack3size }
  300. n298=  set %packsize2 { %packsize1 + %pack4size }
  301. n299=  set %packslot $$?="How many slots?"
  302. n300=  set %packleached 0
  303. n301=  set %packslots { %packslot - $send(0) }
  304. n302=  :xdcc4offer
  305. n303=  set %packslots { %packslot - $send(0) }
  306. n304=  amsg  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  307. n305=  amsg Total offered-[ $+ %packsize2 $+ k $+ ]  
  308. n306=  amsg  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  309. n307=  if %pack1extra != no { amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | amsg áá^- %pack1extra }
  310. n308=  else {
  311. n309=    amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  312. n310=  }
  313. n311=  if %pack2extra != no { amsg #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ] | amsg áá^- %pack2extra }
  314. n312=  else {
  315. n313=    amsg #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ]
  316. n314=  }
  317. n315=  if %pack3extra != no { amsg #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ] | amsg áá^- %pack3extra }
  318. n316=  else {
  319. n317=    amsg #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ]
  320. n318=  }
  321. n319=  if %pack4extra != no { amsg #4-[ $+ %pack4size $+ k $+ ]- $+ %pack4gets $+ x $+ -[ $+ %pack4desc - %pack4desc1 $+ ] | amsg áá^- %pack4extra }
  322. n320=  else {
  323. n321=    amsg #4-[ $+ %pack4size $+ k $+ ]- $+ %pack4gets $+ x $+ -[ $+ %pack4desc - %pack4desc1 $+ ]
  324. n322=  }
  325. n323=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | amsg Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     amsg XDCC LIST generated by %inferno by R-66Y and [eXo] }
  326. n324=  else {
  327. n325=    amsg Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  328. n326=    amsg XDCC LIST generated by %inferno by R-66Y and [eXo]
  329. n327=    timer45 0 400 /xdcc5 offer
  330. n328=    halt
  331. n329=  }
  332. n330=  :xdcc4end
  333. n331=  echo 4 $active Thanx fer using %inferno
  334. n332=}
  335. n333=/xdcc5 {
  336. n334=  if $1 == $null { echo  $+ $r(1,15) $+ , $+ $r(1,15) $+ {I} Usage: /xdcc5 [stop|setup|offer] | halt }
  337. n335=  else goto xdcc5 $+ $$1 
  338. n336=  :xdcc5stop
  339. n337=  timer45 off
  340. n338=  disable #5pack
  341. n339=  unset %pack*
  342. n340=  goto xdcc5end
  343. n341=  :xdcc5setup
  344. n342=  enable #5pack
  345. n343=  inc %packs 1
  346. n344=  set %pack1 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  347. n345=  %pack1size = $lof(%pack1)
  348. n346=  %pack1size = %pack1size / 1000
  349. n347=  set %pack1gets 0
  350. n348=  %pack1desc = $nopath(%pack1)
  351. n349=  set %pack1desc1 $$?="What does the pack DO?"
  352. n350=  set %pack1extra $$?="Any more info?"
  353. n351=  inc %packs 1
  354. n352=  set %pack2 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  355. n353=  %pack2size = $lof(%pack2)
  356. n354=  %pack2size = %pack2size / 1000
  357. n355=  set %pack2gets 0
  358. n356=  %pack2desc = $nopath(%pack2)
  359. n357=  set %pack2desc1 $$?="What does the pack DO?"
  360. n358=  set %pack2extra $$?="Any more info?"
  361. n359=  inc %packs 1
  362. n360=  set %pack3 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  363. n361=  %pack3size = $lof(%pack3)
  364. n362=  %pack3size = %pack3size / 1000
  365. n363=  set %pack3gets 0
  366. n364=  %pack3desc = $nopath(%pack3)
  367. n365=  set %pack3desc1 $$?="What does the pack DO?"
  368. n366=  set %pack3extra $$?="Any more info?"
  369. n367=  inc %packs 1
  370. n368=  set %pack4 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  371. n369=  %pack4size = $lof(%pack4)
  372. n370=  %pack4size = %pack4size / 1000
  373. n371=  set %pack4gets 0
  374. n372=  %pack4desc = $nopath(%pack4)
  375. n373=  set %pack4desc1 $$?="What does the pack DO?"
  376. n374=  set %pack4extra $$?="Any more info?"
  377. n375=  inc %packs 1
  378. n376=  set %pack5 $$dir="Choose a phile." [ $mircdir $+ \xdcc\ ]
  379. n377=  %pack5size = $lof(%pack5)
  380. n378=  %pack5size = %pack5size / 1000
  381. n379=  set %pack5gets 0
  382. n380=  %pack5desc = $nopath(%pack5)
  383. n381=  set %pack5desc1 $$?="What does the pack DO?"
  384. n382=  set %pack5extra $$?="Any more info?"
  385. n383=  set %packsize { %pack1size + %pack2size }  
  386. n384=  set %packsize1 { %packsize + %pack3size }
  387. n385=  set %packsize2 { %packsize1 + %pack4size }
  388. n386=  set %packsize3 { %packsize2 + %pack5size }
  389. n387=  set %packslot $$?="How many slots?"
  390. n388=  set %packleached 0
  391. n389=  set %packslots { %packslot - $send(0) }
  392. n390=  :xdcc5offer
  393. n391=  set %packslots { %packslot - $send(0) }
  394. n392=  amsg  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  395. n393=  amsg Total offered-[ $+ %packsize3 $+ k $+ ]  
  396. n394=  amsg  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  397. n395=  if %pack1extra != no { amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | amsg áá^- %pack1extra }
  398. n396=  else {
  399. n397=    amsg #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  400. n398=  }
  401. n399=  if %pack2extra != no { amsg #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ] | amsg áá^- %pack2extra }
  402. n400=  else {
  403. n401=    amsg #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ]
  404. n402=  }
  405. n403=  if %pack3extra != no { amsg #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ] | amsg áá^- %pack3extra }
  406. n404=  else {
  407. n405=    amsg #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ]
  408. n406=  }
  409. n407=  if %pack4extra != no { amsg #4-[ $+ %pack4size $+ k $+ ]- $+ %pack4gets $+ x $+ -[ $+ %pack4desc - %pack4desc1 $+ ] | amsg áá^- %pack4extra }
  410. n408=  else {
  411. n409=    amsg #4-[ $+ %pack4size $+ k $+ ]- $+ %pack4gets $+ x $+ -[ $+ %pack4desc - %pack4desc1 $+ ]
  412. n410=  }
  413. n411=  if %pack5extra != no { amsg #5-[ $+ %pack5size $+ k $+ ]- $+ %pack5gets $+ x $+ -[ $+ %pack5desc - %pack5desc1 $+ ] | amsg áá^- %pack5extra }
  414. n412=  else {
  415. n413=    amsg #5-[ $+ %pack5size $+ k $+ ]- $+ %pack5gets $+ x $+ -[ $+ %pack5desc - %pack5desc1 $+ ]
  416. n414=  }
  417. n415=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | amsg Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     amsg XDCC LIST generated by %inferno by R-66Y and [eXo] }
  418. n416=  else {
  419. n417=    amsg Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  420. n418=    amsg XDCC LIST generated by %inferno by R-66Y and [eXo]
  421. n419=    timer45 0 400 /xdcc5 offer
  422. n420=    halt
  423. n421=  }
  424. n422=  :xdcc5end
  425. n423=  echo 4 $active Thanx fer using %inferno
  426. n424=}
  427. n425=/xdccnick {
  428. n426=  set %nick $me
  429. n427=  //nick $left(5,$me) $+ dCc
  430. n428=}
  431. n429=/nickbak {
  432. n430=  //nick %nick
  433. n431=  unset %nick
  434. n432=}
  435.